home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 23.zip
/
BS1 part 23
/
Prof page II cgfonts 1.adf
/
Install_All_Fonts
< prev
next >
Wrap
AmigaDOS Script File
|
1990-02-01
|
3KB
|
138 lines
.KEY dest
.BRA {
.KET }
; Install_All_Fonts - Install All CGFonts onto a hard drive.
;
; Inputs:
; dest Directory to install Font into
;
ASSIGN CGFInstOrig: "" ; Save initial directory
; Start with a fresh copy, to avoid any screwups
IF EXISTS RAM:CGFInstall
DELETE RAM:CGFInstall/#? quiet
ELSE
MAKEDIR RAM:CGFInstall
ENDIF
CD ram:CGFInstall ; Search it without adding it to path
C:COPY C:Copy RAM:CGFInstall
Copy C:Assign RAM:CGFInstall
Copy C:Echo RAM:CGFInstall
Copy C:If RAM:CGFInstall
Copy C:Else RAM:CGFInstall
Copy C:Endif RAM:CGFInstall
Copy C:Makedir RAM:CGFInstall
Copy C:Failat RAM:CGFInstall
COPY CGFonts_1:InstUtil RAM:CGFInstall
;
; Make sure that the destination exists and is a directory
;
IF NOT EXISTS {dest$CGFonts:}
ECHO "*N ********** Couldn't find drawer {dest$CGFonts:} ***********N"
SKIP wrapup
ENDIF
INSTUTIL isdir {dest$CGFonts:}
IF WARN
ECHO "*N ********** {dest$CGFonts:} is not a drawer! ***********N"
SKIP wrapup
ENDIF
INSTUTIL ask -dy "Install Compugraphic Fonts onto {dest$CGFonts:} [Y/N]? Y"
IF warn
ECHO "*N Installation aborted!*N"
SKIP wrapup
ENDIF
;
; finally do the actual installation:
;
FAILAT 21
ECHO "*N --------------------------------------------------------------------"
ECHO "*N Copying All Compugraphic Fonts to {dest$CGFonts:} ..."
ECHO "*N --------------------------------------------------------------------"
ECHO "*N Triumvirate ..."
COPY CGFonts_1:Triumvirate to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
ECHO " Triumvirate-Condensed ..."
COPY CGFonts_1:Triumvirate-Condensed to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
ECHO " Times ..."
COPY CGFonts_2:Times to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
ECHO " Courier ..."
COPY CGFonts_2:Courier to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
ECHO " ITCBookman ..."
COPY CGFonts_3:ITCBookman to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
ECHO " ITCAvantGarde ..."
COPY CGFonts_3:ITCAvantGarde to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
ECHO " Palacio ..."
COPY CGFonts_4:Palacio to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
ECHO " ITCZapfChancery ..."
COPY CGFonts_4:ITCZapfChancery to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
ECHO " CenturySchlbk ..."
COPY CGFonts_5:CenturySchlbk to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
ECHO " Symbol ..."
COPY CGFonts_5:Symbol to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
ECHO " ITCZapfDingbats ..."
COPY CGFonts_5:ITCZapfDingbats to {dest$CGFonts:} quiet
IF ERROR
SKIP wrapup
ENDIF
;
; make sue that there is a PS subdirectory on CGFonts:
;
IF {dest$CGFonts:} EQ "CGFonts:"
IF NOT EXISTS CGFonts:PS
MAKEDIR CGFonts:PS
ENDIF
ENDIF
ECHO "*N --------------------------------------------------------------------"
ECHO "*N*N Installation of Compugraphic Fonts complete."
ECHO "*N ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*N"
;
; Clean up
;
LAB wrapup
CD CGFInstOrig:
DELETE >NIL: RAM:CGFInstall all quiet
Assign CGFInstOrig:
CGFonts_1:InstUtil ask "Press RETURN."